home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / em7sui_1 / em7sui~1.exe / OutlinedAreaSeriesTest.wr_ / OutlinedAreaSeriesTest.wr
Text File  |  1998-10-22  |  2KB  |  71 lines
  1. #VRML V2.0 utf8
  2.  
  3. EXTERNPROTO Red [ exposedField SFFloat transparency ] "..\Appearances\SummerMaterials.wrl#color2"
  4.  
  5. EXTERNPROTO em7_OutlinedAreaSeries [
  6.     exposedField SFNode appearance
  7.     exposedField SFColor wireColor
  8.     field SFInt32 xDimension
  9.     field SFFloat xSpacing
  10.     field SFFloat depth
  11.     field MFFloat height
  12.     eventIn SFInt32 set_xDimension
  13.     eventIn SFFloat set_xSpacing
  14.     eventIn SFFloat set_depth
  15.     eventIn MFFloat set_height
  16. ] "..\VR_GRAPH.wrl#em7_OutlinedAreaSeries"
  17.  
  18. EXTERNPROTO em7_MultiFloatInterval [
  19.     field MFFloat value
  20.     field SFInt32 blockSize
  21.     field SFInt32 index
  22.     eventIn SFInt32 set_index
  23.     eventOut SFInt32 index_changed
  24.     eventOut MFFloat value_changed
  25. ] "..\VR_GRAPH.wrl#em7_MultiFloatInterval"
  26.  
  27. EXTERNPROTO em7_Slider [
  28.     field SFFloat height
  29.     field SFFloat radius
  30.     field SFInt32 min
  31.     field SFInt32 max
  32.     field SFInt32 value
  33.     eventIn SFInt32 set_min
  34.     eventIn SFInt32 set_max
  35.     eventIn SFInt32 set_value
  36.     eventOut SFInt32 value_changed
  37. ] "..\VR_UI.wrl#em7_Slider"
  38.  
  39. DEF AREA em7_OutlinedAreaSeries {
  40.     appearance Red {}
  41.     xDimension 10
  42.     xSpacing 0.5
  43.     height [0.1, 0.2, 0.15, 0.4, 1, 1.2, 1, 0.8, 0.3, 0.5, 0.5, 0.7, 1.4, 0.6, 0.3, 0.5, 0.8, 1.2, 1.1, 0.15, 0.4, 1, 1.2, 1, 0.8, 0.3, 0.5, 0.5]
  44.     depth 0.5
  45. }
  46.  
  47. Transform {
  48.     translation 0 -0.5 0.5
  49.     rotation 0 0 1 -1.5708
  50.     children [
  51.         DEF SLIDER em7_Slider {
  52.             height 5
  53.             min 0
  54.             max 20
  55.             value 0
  56.         }
  57.     ]
  58. }
  59.  
  60. DEF MULTI_FLOAT em7_MultiFloatInterval {
  61.     value [0.1, 0.2, 0.15, 0.4, 1, 1.2, 1, 0.8, 0.3, 0.5, 0.5, 0.7, 1.4, 0.6, 0.3, 0.5, 0.8, 1.2, 1.1, 0.15, 0.4, 1, 1.2, 1, 0.8, 0.3, 0.5, 0.5]
  62.     blockSize 10
  63.     index 0
  64. }
  65.  
  66. ROUTE SLIDER.value_changed TO MULTI_FLOAT.set_index
  67. ROUTE MULTI_FLOAT.value_changed TO AREA.set_height
  68.  
  69.  
  70.  
  71.